home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / print instr (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  57 lines
  1. 10 A$="ABCDEFGHIJKLMNOPQ":A$=A$+A$+A$+A$+A$:A$=A$+A$+A$:GOTO10000
  2. 5000 PRINTCHR$(147)
  3. 5010 PRINT"[147]ALIGN PAPER IN PRINTER...
  4. 5020 [153]"THEN PRESS ANY KEY.
  5. 5030 GETZX$:IFZX$=""THEN5030
  6. 5040 GOTO6000
  7. 6000 FORI=132TO1STEP-1:IFL$(I)=BL$ORL$(I)=" "+RIGHT$(BL$,38)THEN6020
  8. 6010 Q=I:I=1
  9. 6020 NEXTI:H=0:OPEN2,4,7:IFQ/2=INT(Q/2)THENQ=Q-1
  10. 6060 U$=RIGHT$(BL$,38):G9$="O":FORI=1TOQSTEP2:IFMID$(L$(I),2,2)="@@"THEN8100
  11. 6100 IFRIGHT$(L$(I),  38)<>U$THEN6130
  12. 6110 IFRIGHT$(L$(I+1),38)<>U$THEN6130
  13. 6120 PRINT#2,CHR$(13);:GOTO6220
  14. 6130 IFG9$="L"THENW$=RIGHT$(L$(I),38)+RIGHT$(BL$,38):SV=1:GOTO6160
  15. 6140 IFG9$="R"THENW$=RIGHT$(BL$,38)+RIGHT$(L$(I),38):SV=1:GOTO6160
  16. 6150 W$=RIGHT$(L$(I),38)+RIGHT$(L$(I+1),38)
  17. 6160 FORJ=76TO1STEP-1:IFMID$(W$,J,1)<>" "THENW$=LEFT$(W$,J):J=1
  18. 6180 NEXTJ
  19. 6190 IFG9$="L"ORG9$="R"THENPRINT#2,SI$ W$ BS$:IFSV=1THENSV=0:GOTO6250
  20. 6200 IFG9$="L"ORG9$="R"THEN6220
  21. 6210 PRINT#2,W$
  22. 6220 NEXTI
  23. 6230 FORJ=I+INT(H)+2TO131STEP2:PRINT#2,CHR$(13);:NEXTJ:CLOSE2:GOTO9000
  24. 6250 H=H+.667:IFG9$="L"THEN6270
  25. 6260 W$=RIGHT$(BL$,38)+RIGHT$(L$(I+1),38):GOTO6160
  26. 6270 W$=RIGHT$(L$(I+1),38)+RIGHT$(BL$,38):GOTO6160
  27. 8100 A=4
  28. 8110 B$=MID$(L$(I),A,6):IFB$="DOUBLE"THENPRINT#2,CHR$(14);:GOTO8220
  29. 8120 IFB$="SINGLE"THENPRINT#2,CHR$(15);:GOTO8220
  30. 8130 IFB$="UP...R"THENG9$="R":GOTO8180
  31. 8140 IFB$="UP...L"THENG9$="L":GOTO8180
  32. 8150 IFB$="LOW..."THENG9$="O":PRINT#2,SI$;:GOTO8190
  33. 8160 IFB$="UP...M"THENG9$="O":GOTO8180
  34. 8170 GOTO8220
  35. 8180 CLOSE2:OPEN2,4:PRINT#2,CHR$(145);:GOTO8220
  36. 8190 CLOSE2:OPEN2,4,7:PRINT#2,CHR$(17);
  37. 8220 IFMID$(L$(I),A+6,2)="@@"THENA=A+8:GOTO8110
  38. 8230 GOTO6120
  39. 9000 READQ$:IFQ$="END"THENEND
  40. 9005 FORJ=1TOCT:L$(J)=BL$:NEXTJ
  41. 9010 GOTO9882
  42. 9570 POKE54296,15:POKE54277,9:POKE54273,34:POKE54272,75:POKE54276,17
  43. 9600 FORT=1TO40:NEXTT:FORL=54272TO54296:POKEL,0:NEXT:RETURN
  44. 9882 OPEN1,8,3,"0:"+Q$:SYS896:CT=VAL(LEFT$(A$,4))
  45. 9883 FORJ=1TOCT:SYS896:L$(J)=LEFT$(A$,39):NEXTJ:CLOSE1:GOTO9910
  46. 9910 CLOSE1:GOSUB9570:GOSUB9570:GOTO5000
  47. 10000 DIML$(148):PRINT"[147]":BL$="                   ":BL$="="+BL$+BL$
  48. 10045 BD$="--------------------------------------"
  49. 10060 FORJ=896TO933:READX:POKE J,X:T=T+X:NEXTJ
  50. 10061 I9=0:I$=" ":LL=0:SI$=CHR$(15):BS$=CHR$(8):GOTO9000
  51. 11000 DATA160,2,177,45,153,137,0,200,192,6,208,246,162,1,32,198,255,32,228,255
  52. 11010 DATA201,13,240,11,164,142,145,140,200,132,142,196,139,208,238,76,204,255
  53. 12010 DATA SALES/INSTR.1
  54. 12011 DATA SALES/INSTR.2
  55. 12012 DATA SALES/INSTR.3
  56. 12020 DATA END
  57.